home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #6 / Amiga Plus CD - 2004 - No. 06.iso / AmigaPlus / Begleitmaterial / 50Tools / Grafik / PerfectPaint / rexx / Alchemy / Script / Neon.rx < prev    next >
Text File  |  2001-10-23  |  862b  |  65 lines
  1. /* Alchemy script
  2. 100
  3. 1
  4. 5
  5. */
  6.  
  7.     options results
  8.   parse ARG Port x1 y1 x2 y2  type b
  9.     ADDRESS value Port
  10.  
  11.     type=type+1
  12.     pp_GetPenType
  13.     PType=result
  14.  
  15.     pp_ClosestColor 0 0 0
  16.     Black=result
  17.  
  18.     pp_AvoidRefresh    
  19.     pp_Progresstext 'Neon'
  20.  
  21.     pp_UpdateUndoBox x1-1 y1-1 x2+1 y2+1
  22.  
  23.     pp_ComposeReqOff
  24.     pp_Compose 0 100 0
  25.     tot=6
  26.  
  27.     pp_EffectOn
  28.  
  29.     pp_Progress 1 tot
  30.     pp_ConvInit 0 1 0
  31.     C=-1
  32.         pp_Conv 0 0 0 0 0 0
  33.         pp_Conv 1 0 0 0 0 0
  34.         pp_Conv 2 0 0 1 0 0
  35.         pp_Conv 3 0 0 0 C 0
  36.         pp_Conv 4 0 0 0 0 0
  37.     pp_BoxF x1 y1 x2 y2
  38.  
  39.     pp_Progress 2 tot
  40.     pp_PicttoSpare
  41.  
  42.     pp_Progress 3 tot
  43.     pp_Maximum type
  44.     pp_BoxF x1 y1 x2 y2
  45.  
  46.     pp_Progress 4 tot
  47.     pp_GaussianBlur 5
  48.     pp_BoxF x1 y1 x2 y2
  49.  
  50.     pp_Progress 5 tot
  51.     pp_Spare
  52.     pp_Compose 1 100 0
  53.     pp_BoxF x1 y1 x2 y2
  54.  
  55.     pp_Progress 6 tot
  56.     pp_EffectOff
  57.     pp_COmpose 0 100 0        
  58.     pp_Progress 3 tot
  59.     pp_ComposeReqOn
  60.  
  61.     pp_PermitRefresh
  62.     pp_ProgressClr
  63.  
  64.     Exit
  65.